home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / grab.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  469b  |  24 lines
  1. /* */
  2. options results
  3.  
  4. address ami2d
  5.  
  6. 'get frame'
  7. if length(result) > 0 then frame = result
  8. else frame = 0
  9. frame = frame + 1
  10. 'set frame 'frame
  11. call postmsg(0,11,"frame "frame,AMI2D)
  12.  
  13. filename = 'ram:ami2d'frame'.ilbm'
  14. address command 'ami2d:bin/grabpub -pAMI2D -b 'filename
  15.  
  16. if frame = 1 then call open('list','ram:ami2d.lst','W')
  17. else call open('list','ram:ami2d.lst','A')
  18. call writeln('list',filename)
  19. call close('list')
  20.  
  21. call postmsg(0,11,"grab - done",AMI2D)
  22.  
  23. exit
  24.